﻿Option Explicit On
Option Strict On

Imports System.Threading
Imports Microsoft.SPOT
Imports Gadgeteer

'  Original Gadgeteer framework Copyright (c) Microsoft Corporation. (http://gadgeteer.codeplex.com/)
'  
'  Gadgeteer Light made by Stefan Thoolen (http://gadgeteerlight.codeplex.com/)
'
'  Licensed under the Apache License, Version 2.0 (the "License");
'  you may not use this file except in compliance with the License.
'  You may obtain a copy of the License at
'
'      http://www.apache.org/licenses/LICENSE-2.0
'
'  Unless required by applicable law or agreed to in writing, software
'  distributed under the License is distributed on an "AS IS" BASIS,
'  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'  See the License for the specific language governing permissions and
'  limitations under the License.
Namespace Sytech_Designs_Accel3Axis

    Public Module Module1

        Sub Main()
            Dim socket As Integer = 2

            Dim Axis As Gadgeteer.Modules.Sytech.Accel3Axis = New Gadgeteer.Modules.Sytech.Accel3Axis(socket)
            Axis.InitI2C()
            Axis.SetMode(Modules.Sytech.Accel3Axis.Mma7455Mode.modeMeasurement, Modules.Sytech.Accel3Axis.Mma7455gSelect.g2)

            Dim x As Short, y As Short, z As Short

            Do
                If Axis.ReadAll(x, y, z) Then
                    Debug.Print(x.ToString() + "x" + y.ToString() + "x" + z.ToString())
                Else
                    Debug.Print("No readings!")
                End If
                Thread.Sleep(500)
            Loop
        End Sub

    End Module

End Namespace